home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 17
/
AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso
/
Rexx
/
EditScript.AmiCAD
< prev
next >
Wrap
Text File
|
1998-02-02
|
1KB
|
45 lines
/* EditScript.AmiCAD, Chez Corbin, Mercredi 16 Juillet 1997, version 1.00 */
/* Chargement automatique d'un script dans AmiTex depuis AmiCAD */
/* L'appel se fait en sélectionnant l'un des onze menus Macros/ARexx
* et en enfonçant en même temps la touche CONTROL (Ctrl).
* Le script doit se trouver dans le répertoire assigné REXX:
* Il doit aussi posséder l'extension .AmiCAD à son nom */
parse arg script /* récupération du nom du script */
if script = "" then exit
signal on error /* pour l'interception des erreurs */
signal on syntax
options results
port = ADDRESS() /* lecture du nom du port AmiCAD */
address command
if ~show(p, "AMITEX") then do /* à améliorer... (AMITEX0, AMITEX1...) */
f=0 /* il n'y avait pas de fenêtre ouverte */
'run > nil:' "c:AmiTex" /* chargement de l'éditeur */
waitforport "AMITEX"
end
else f=1 /* il y a déjà une fenêtre active */
ADDRESS (AMITEX)
cr='0a'x
if f=1 then 'NEW("")' /* demande l'ouverture d'une autre fenêtre */
'LOAD("'script'.AmiCAD")' /* demande le chargement du script */
exit
/* Traitement des erreurs, interruption du programme */
syntax:
address (port)
erreur=RC
'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
address (port)
'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
exit